نمایش نام کاربری

برای انجام این کار یم تکست در فرم بگزارید و

API زیر رو در جنرال بنویسید

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

برای نمایش ان بر روی فرم دبل کلیک کرده و دستور زیر را بنویسید

Dim Buffer As String
Buffer = String(255, 0)
GetUserName Buffer, 255
Buffer = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
Text1 = Buffer

سعی می کنمAPI بیشتری رو بزارم فعلا بای...